home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 December / macformat-019.iso / Shareware City / Developers / Gnuplot 3.5 for Macintosh / demo / surface2.dem < prev    next >
Encoding:
Text File  |  1993-11-03  |  1.7 KB  |  80 lines  |  [TEXT/MSWD]
  1. #
  2. # $Id: surface2.dem%v 3.38.2.139 1993/06/19 01:03:49 woo Exp woo $
  3. #
  4. set parametric
  5. set isosamples 50,10
  6. set hidden
  7.  
  8. set title "Parametric Sphere"
  9. set urange [-pi/2:pi/2]
  10. set vrange [0:2*pi]
  11. set zrange [-1:1]
  12. set ztics -1.0,0.25,1.0
  13. set view 45,50,,2.5
  14. splot cos(u)*cos(v),cos(u)*sin(v),sin(u)
  15. pause -1 "Hit return to continue (1)"
  16.  
  17. set view ,,,0.8
  18. replot
  19. pause -1 "Hit return to continue (2)"
  20.  
  21. set view ,,,1.6
  22. replot
  23. pause -1 "Hit return to continue (3)"
  24.  
  25. set view ,,,1.0
  26.  
  27. set title "Parametric Torus"
  28. set urange [0:2*pi]
  29. set vrange [0:2*pi]
  30. splot (1-0.2*cos(v))*cos(u),(1-0.2*cos(v))*sin(u),0.2*sin(v)
  31. pause -1 "Hit return to continue (4)"
  32.  
  33.  
  34. set title "Parametric Hexagon"
  35. set urange [-1.3:1.3]
  36. set vrange [0:2*pi]
  37. set zrange [-0.6:0.6]
  38. set ztics
  39. splot cos(v)**3*cos(u)**3,sin(v)**3*cos(u)**3,sin(u)**3
  40. pause -1 "Hit return to continue (5)"
  41.  
  42. set title "Parametric Helix"
  43. set isosamples 100,20
  44. set urange [0:10*pi]
  45. set vrange [0:2*pi]
  46. set zrange [-0.6:0.6]
  47. splot (1-0.1*cos(v))*cos(u),(1-0.1*cos(v))*sin(u),0.1*(sin(v)+u/1.7-10)
  48. pause -1 "Hit return to continue (6)"
  49.  
  50. set title "Parametric Shell"
  51. set isosamples 40,20
  52. set view 50,30,1.0
  53. set urange [0:2*pi]
  54. set vrange [0:2*pi]
  55. set zrange [-3:1.5]
  56. splot cos(u)*u*(1+cos(v)/2),sin(v)*u/2,sin(u)*u*(1+cos(v)/2)
  57. pause -1 "Hit return to continue (7)"
  58.  
  59. set title "Interlocking Tori"
  60.  
  61. set urange [-pi:pi]
  62. set vrange [-pi:pi]
  63. set isosamples 50,20
  64. splot cos(u)+.5*cos(u)*cos(v),sin(u)+.5*sin(u)*cos(v),.5*sin(v) with lines, 1+cos(u)+.5*cos(u)*cos(v),.5*sin(v),sin(u)+.5*sin(u)*cos(v) with lines
  65. pause -1 "Hit return to continue (8)"
  66.  
  67. #
  68. # Clean up:
  69. #
  70. set noparametric
  71. set dummy x,y
  72. set isosamples 10,10
  73. set view 60,30,1,1
  74. set urange [-5:5]
  75. set vrange [-5:5]
  76. set zrange [-10:10]
  77. set auto
  78. set title "" 0,0
  79. set nohidden
  80.